(ns cl-paip.utils)

(defn find-all [item coll]
  "lisp find all item from coll"
  (if (empty? coll)
    '()
    (if (= item (first coll))
      (cons item
	    (find-all item (rest coll)))
      (recur item (rest coll)))))


